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ROUT INE Con CEPOL NT ! Post-checkpoint handler 
SeNVERTs REF CTX_BLOCK 
= 


1 
Version: *v04-000' 


(eeeeerereeeeeeeerereeereteeeeeeeReeereeeeeeeeeeeReteteeeerereererreeeeeeee 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


Hie ple SOF TWARE ft FURNISHED UNDER A LICENSE AND MAY BE ysee AND sorte 
'* ONLY IN a ANCE WITH THE TERMS OF SUCH it SE AND WITH THE 
:* INCLUSION OF TH Ne ABOVE ped NOTICE. THIS SOFTWARE OR ANY OTHER 
te COPIES THEREOF _ 4 BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
@ 
tt 
a 
t 
® 
mw 
* 
ae 
© 
t 
ie TRANSFERRED. * 
te 
” 
” 
a 
* 
© 
® 
® 
* 
® 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
? ompokat itn. NOT BE CONSTRUED AS A COMMITMENT 3Y DIGITAL EQUIPMENT 


'# DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SeeeReee eee ARKH AeeHAeAeeeeeeeeeeeeeeeteeeeteeeeeeeerererereererene 


i FUNCTIONAL DESCRIPTION: 


This routine is called before a checkpoint, and moves the RDBs 
from WFB_FREE to WFB_NOUSE. 


This is done by a post-checkpoint handler so that user-written calls 
to CHKSCHKPNT also cause these blocks to be marked as having no use. 


‘ 

' 

' 

' 

' 

' 

' 

' 

' 

' 

: Note that we check that this routine is not called from an AST routine, 
because the WFB_FREE and WFB_NOUSE Lists aren't manipluated carefully. 
‘ 
' 
' 
' 
‘ 
' 
‘ 
' 
' 
' 
' 
' 


i FORMAL PARAMETERS: 

CONTEXT = Address of the context area 
i IMPLICIT INPUTS: 

i NONE 

i IMPLICIT OUTPUTS: 

i NONE 
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ROUTINE VALUE: 
SS$_NORMAL 
SIDE EFFECTS: 
NONE 


BEGIN 
aes See! 
erat = COM_REG_CTX: REF CTX_BLOCK_(S_FIELDS); 


WFB: REF WFB_BLOCK; 
: Grab the address of the context area 
CTX = CONTEXTCBASE_); 
: Move the RDBs from WFB_FREE to WFB_NOUSE 
ASSERT 1d arty peat A are ) Ay ee NOUSE ,0)) 
WEB = CTXCS_WRK_WFB) = 
WHILE (WFB = WROPeLUFe NeXT xe 

MOVE _ALL_RDBS_ ( Core WFB_ FREED. WFB_NOUSE ); 


RETURN SSS$_NORMAL; 
END; 
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GLOBAL ROUTINE SORSSCHECKPOINT: CAL_CTXREG NOVALUE = ! Take a checkpoint 
ad 
FUNCTIONAL DESCRIPTION: 
This routine causes a checkpoint to be taken. 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 
NONE 
ERNAL REGISTER 
CTX = COM_REG_CTX: REF CTX_BLOCK_(S_FIELDS); 


' Reset our counter to a very lorge value. If we are really checkpointing, 
the post_checkpoint routine will set it to a more reasonable value. 


CTXCCOM_COUNTDOWN) = 1*(XBPVAL-1)-1; ' Largest positive value 
Are we checkpointing? 

if .CTXCCOM_NOCHKPNT) 

THEN 


' 
' 
' 
; 
‘ 
] 
' 
' 
BEG 
EXT 


RETURN 
ELIF CHKSCHKPNT NEQ 0 
THEN 


STATUS; 
STATUS = CHKSCHKPNT(); 
IF, STATUS EQL CHK$_NOTINIT 


N 
BEGIN 
Warn the user, since he requested checkpointing 
Perhaps we should fatal this, since we shouldn't get this far. 


| 
oD 
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SORSSERR ware AND NOT STSSM_SEVERITY OR STSS$K_WARNING, 


; Reset our counter, and inform the user 


CTXCCOM_COUNTDOWN] = TUN_K_COUNTDOWN; 
LIF XSWITCHES (DEBUG) 
XTHEN 


BEGIN 
EXTERNAL ROUTINE LIBSSHOW_TIMER: ADDRESSING_MODE (GENERAL); 
LIBSSHOW_TIMER(); 


2FI 
SORSSERROR(SOR$_CHKPNT, 1, 0); 
RETURN; 


ELSE 
SORSSFATAL(SORS_SHR_SYSERROR, 0, .STATUS); 


END; 
! Some error occured. 
! Call the post_checkpoint routine to move RDBs from WFB_FREE to WFB_NOUSE. 
: Indicate that we shouldn't mess with any more checkpoints. 


PSH_CHECKPOINT(CTXCBASE_J); 
CTXCCOM_NOCHKPNT) = TRUE; 


END; 


| 
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